Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/3dpp/3dp1.frm

Text File | 1995-05-01 | 8KB | 314 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00FFFFFF&
   Caption         =   "Panel Button Demo"
   ClientHeight    =   4020
   ClientLeft      =   2130
   ClientTop       =   1485
   ClientWidth     =   4605
   ForeColor       =   &H000000FF&
   Height          =   4425
   Left            =   2070
   LinkTopic       =   "Form1"
   ScaleHeight     =   4020
   ScaleWidth      =   4605
   Top             =   1140
   Width           =   4725
   Begin SSPanel Panel3D1
      BackColor       =   &H00C0C0C0&
      BevelWidth      =   2
      Caption         =   "JWPC '95"
      Font3D          =   2  'Raised w/heavy shading
      ForeColor       =   &H000000FF&
      Height          =   435
      Left            =   1380
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   9
      Top             =   3000
      Width           =   1275
   End
   Begin SSPanel pd
      BackColor       =   &H00C0C0C0&
      BevelOuter      =   1  'Inset
      BevelWidth      =   2
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   3360
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   8
      Top             =   1920
      Visible         =   0   'False
      Width           =   495
      Begin Image Image2
         Height          =   180
         Left            =   120
         Picture         =   3DP1.FRX:0000
         Top             =   180
         Width           =   180
      End
   End
   Begin SSPanel pu
      BackColor       =   &H00C0C0C0&
      BevelWidth      =   2
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   3360
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   7
      Top             =   1920
      Width           =   495
      Begin Image Image1
         Height          =   225
         Left            =   120
         Picture         =   3DP1.FRX:011A
         Top             =   120
         Width           =   225
      End
   End
   Begin SSPanel bd
      BackColor       =   &H00C0C0C0&
      BevelOuter      =   1  'Inset
      BevelWidth      =   2
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   2280
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   6
      Top             =   1080
      Visible         =   0   'False
      Width           =   435
   End
   Begin SSPanel ad
      BackColor       =   &H00C0C0C0&
      BevelOuter      =   1  'Inset
      BevelWidth      =   2
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   2280
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   4
      Top             =   660
      Visible         =   0   'False
      Width           =   435
      Begin SSPanel Panel3D4
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         BevelWidth      =   2
         Caption         =   "Panel3D4"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   120
         Outline         =   -1  'True
         RoundedCorners  =   0   'False
         TabIndex        =   5
         Top             =   420
         Width           =   315
      End
   End
   Begin SSPanel bu
      BackColor       =   &H00C0C0C0&
      BevelWidth      =   2
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   2280
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   3
      Top             =   1080
      Width           =   435
   End
   Begin SSPanel au
      BackColor       =   &H00C0C0C0&
      BevelWidth      =   2
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   2280
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   2
      Top             =   660
      Width           =   435
   End
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   800
      Left            =   1560
      Top             =   3360
   End
   Begin SSPanel up
      BackColor       =   &H00C0C0C0&
      BevelWidth      =   2
      Caption         =   "Ok"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   180
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   1
      Top             =   1740
      Width           =   915
   End
   Begin SSPanel down
      BackColor       =   &H00C0C0C0&
      BevelOuter      =   1  'Inset
      BevelWidth      =   2
      Caption         =   "Ok"
      Font3D          =   0  'None
      Height          =   375
      Left            =   180
      Outline         =   -1  'True
      RoundedCorners  =   0   'False
      TabIndex        =   0
      Top             =   1740
      Visible         =   0   'False
      Width           =   915
   End
   Begin Line Line9
      BorderColor     =   &H00008000&
      X1              =   1380
      X2              =   3180
      Y1              =   60
      Y2              =   3840
   End
   Begin Line Line8
      BorderColor     =   &H00008000&
      X1              =   60
      X2              =   4500
      Y1              =   3000
      Y2              =   1260
   End
   Begin Line Line7
      BorderColor     =   &H0000FFFF&
      X1              =   1080
      X2              =   3480
      Y1              =   60
      Y2              =   3840
   End
   Begin Line Line6
      BorderColor     =   &H0000FFFF&
      X1              =   60
      X2              =   4500
      Y1              =   3240
      Y2              =   1020
   End
   Begin Line Line5
      BorderColor     =   &H000000FF&
      X1              =   720
      X2              =   3840
      Y1              =   60
      Y2              =   3900
   End
   Begin Line Line4
      BorderColor     =   &H000000FF&
      X1              =   60
      X2              =   4500
      Y1              =   3480
      Y2              =   660
   End
   Begin Line Line3
      Index           =   1
      X1              =   420
      X2              =   4200
      Y1              =   60
      Y2              =   3900
   End
   Begin Line Line3
      Index           =   0
      X1              =   60
      X2              =   4560
      Y1              =   3720
      Y2              =   360
   End
   Begin Line Line2
      BorderColor     =   &H00FF0000&
      X1              =   60
      X2              =   4500
      Y1              =   3960
      Y2              =   60
   End
   Begin Line Line1
      BorderColor     =   &H00FF0000&
      X1              =   120
      X2              =   4500
      Y1              =   60
      Y2              =   3960
   End
End

Sub ad_Click ()
form1.BackColor = QBColor(15)

ad.Visible = False
au.Visible = True


End Sub

Sub au_Click ()
au.Visible = False
ad.Visible = True

End Sub

Sub bd_Click ()
form1.BackColor = QBColor(0)

bd.Visible = False
bu.Visible = True

End Sub

Sub bu_Click ()
bu.Visible = False
bd.Visible = True

End Sub

Sub down_Click ()
down.Visible = False
up.Visible = True

End Sub

Sub Panel3D1_Click ()
MsgBox "Copyright (C) 1994 JWPc '95, inc.  EMAIL US FOR QUESTIONS ON HOW TO ON WAOL.EXE at...   JwpcEMAIL    Thanks!", 48, "JWPC 1995, inc."

End Sub

Sub pd_Click ()
pd.Visible = False
pu.Visible = True